From be8400cb8326cfcc4ae0a2fda374d4a0feb9ee50 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 30 Sep 2006 09:49:26 +0000 Subject: [PATCH] (undo-more): When undo information for the region is exhausted, say "No further undo information FOR REGION". --- lisp/simple.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 53c9c680cc9..105c5a9afce 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1501,8 +1501,7 @@ Call `undo-start' to get ready to undo recent changes, then call `undo-more' one or more times to undo them." (or (listp pending-undo-list) (error (concat "No further undo information" - (and transient-mark-mode mark-active - " for region")))) + (and undo-in-region " for region")))) (let ((undo-in-progress t)) (setq pending-undo-list (primitive-undo n pending-undo-list)) (if (null pending-undo-list) -- 2.30.2